# mrh_email_article_link v0.5
# Email article link
# Matt Helmick
# http://webinetics.com/

# ......................................................................
# This is a plugin for Textpattern - http://textpattern.com/
# To install: textpattern > admin > plugins
# Paste the following text into the 'Install plugin' box:
# ......................................................................

YToxMDp7czo3OiJ2ZXJzaW9uIjtzOjM6IjAuNSI7czo2OiJhdXRob3IiO3M6MTI6Ik1hdHQg
SGVsbWljayI7czoxMDoiYXV0aG9yX3VyaSI7czoyMjoiaHR0cDovL3dlYmluZXRpY3MuY29t
LyI7czoxMToiZGVzY3JpcHRpb24iO3M6MTg6IkVtYWlsIGFydGljbGUgbGluayI7czo0OiJ0
eXBlIjtpOjA7czo0OiJuYW1lIjtzOjIyOiJtcmhfZW1haWxfYXJ0aWNsZV9saW5rIjtzOjQ6
ImhlbHAiO3M6MTgwNzoiaDEuIG1yaF9lbWFpbF9hcnRpY2xlX2xpbmsKCio8Y29kZT48dHhw
Om1yaF9lbWFpbF9hcnRpY2xlX2xpbmsgLz48L2NvZGU+KiBnZW5lcmF0ZXMgYSBzaW1wbGUg
Im1haWx0bzoiIGxpbmsgdXNpbmcgZWl0aGVyIGEgYnV0dG9uIGltYWdlIGFuZC9vciB0ZXh0
IGxpbmsgdGhhdCBwcm92aWRlcyB0aGUgVVJMIGZvciB0aGUgY3VycmVudCBhcnRpY2xlICh0
aHVzIHRoaXMgc2hvdWxkIGJlIHVzZWQgaW5zaWRlIGEgc2luZ2xlIGFydGljbGUgZm9ybSkg
YW5kIHRoZSB0aXRsZSBpbiB0aGUgc3ViamVjdCBsaW5lLiBJbiB2LiA+MC40LCB5b3UgY2Fu
IGFsc28gc2V0IHlvdXIgb3duIG1lc3NhZ2Ugd2l0aCB0aGUgX215bWVzc2FnZV8gcGFyYW1l
dGVyIG9yIHByZXBlbmQgdGhlIF9teW1lc3NhZ2VfIGJlZm9yZSB0aGUgVVJMIHdpdGggdGhl
IF9wcmVwZW5kXyBwYXJhbWV0ZXIuCgoqUGFyYW1ldGVyczoqCgoqc3ViamVjdDoqIHRoZSBU
WFAgZ2xvYmFsIHZhcmlhYmxlICR0aGlzYXJ0aWNsZVsndGl0bGUnXSBpcyB0aGUgZGVmYXVs
dCwgYnV0IHlvdSBjYW4gc2V0IHRoaXMgbWFudWFsbHkuCgoqdGV4dGxpbms6KiB0aGUgc3Ry
aW5nICJFbWFpbCBhcnRpY2xlIGxpbmsiIGlzIHRoZSBkZWZhdWx0LCBidXQgeW91IGNhbiBz
ZXQgeW91ciBvd24gd2l0aCB0aGlzIHBhcmFtZXRlci4gTm90ZTogdGhpcyBpcyByZXF1aXJl
ZCwgYmVjYXVzZSBpdCBpcyB1c2VkIGZvciB0aGUgImFsdCIgcGFyYW1ldGVyIGV2ZW4gaWYg
eW91IGFyZSB1c2luZyBhbiBpbWFnZSBsaW5rLgoKKmltYWdlcGF0aDoqIGRlZmF1bHQgaXMg
ZW1wdHksIGJ1dCBpZiB5b3UgaGF2ZSBhbiBpbWFnZSB5b3Ugd291bGQgbGlrZSB0byB1c2Ug
YXMgYSBidXR0b24sIHlvdSBjYW4gc2V0IGl0IGhlcmUgbGlrZSBpbWFnZXBhdGg9Ii4vaW1h
Z2VzL215X2J1dHRvbi5naWYiIGFuZCBpdCB3aWxsIG92ZXJyaWRlIHRoZSB0ZXh0bGluay4K
CipjbGFzc25hbWU6KiBkZWZhdWx0IGlzIGVtcHR5LCBidXQgdGhpcyBhbGxvd3MgeW91IHRv
IHN0eWxlIHlvdXIgdGV4dGxpbmsgb3IgaW1hZ2UgbGluayB3aXRoIGEgPGNvZGU+PGRpdj48
L2NvZGU+IHdpdGggeW91ciBvd24gY2xhc3MuCgoqdG9lbWFpbDoqIGVtYWlsIGFkZHJlc3Mg
aWYgeW91IHdpc2ggdG8gdXNlIHRoaXMgYXMgYSB0byBlbWFpbCBsaW5rLiBFbWFpbCBhZGRy
ZXNzIGlzIG9iZnVzY2F0ZWQgKGhpZGRlbiBmcm9tIHNwYW1ib3RzKS4KCippbWFnZXRleHQ6
KiBPcHRpb24gdG8gc2V0IGlmIHlvdSB3YW50IHRoZSB0ZXh0bGluayB0byBhY2NvbXBhbnkg
YSBsaW5rIGltYWdlIGJ1dHRvbi4gRGVmYXVsdCBpcyAnbm8nLiBTZXQgdG8gJ3llcycgaWYg
eW91IHdvdWxkIGxpa2UgdG8gcHJlc2VudCB0aGUgaW1hZ2UgYnV0dG9uIHdpdGggdGhlIGxp
bmsgdGV4dCB0byB0aGUgc2lkZS4KCipteW1lc3NhZ2U6KiBORVchIFNldCB5b3VyIG93biBt
ZXNzYWdlIGluc3RlYWQgb2YgdGhlIGFydGljbGUgVVJMLiAoWClIVE1MIGNhbiBiZSB1c2Vk
LiBJZiB1c2VkIHdpdGggdGhlIF9wcmVwZW5kXyBwYXJhbWV0ZXIsIGl0IHdpbGwgYmUgdXNl
ZCBhcyB0aGUgcHJlcGVuZGVkIHRleHQgYmVmb3JlIHRoZSBhcnRpY2xlIFVSTC4KCipwcmVw
ZW5kOiogU2V0IHRoaXMgdG8gJ3llcycgdG8gcHJlcGVuZCBfbXltZXNzYWdlXyBwYXJhbWV0
ZXIgdG8gdGhlIGFydGljbGUgVVJMLiBFeGFtcGxlOiA8Y29kZT48dHhwOm1yaF9lbWFpbF9h
cnRpY2xlX2xpbmsgbXltZXNzYWdlPSJTb21lb25lIHRob3VnaHQgeW91IHNob3VsZCByZWFk
IHRoaXMgYXJ0aWNsZTogIiBwcmVwZW5kPSJ5ZXMiIC8+PC9jb2RlPiI7czo0OiJjb2RlIjtz
OjI0MjU6IgpmdW5jdGlvbiBtcmhfZW1haWxfYXJ0aWNsZV9saW5rKCRhdHRzKSB7CgkJIGds
b2JhbCAkdGhpc2FydGljbGUsICRwZXJtbGlua19tb2RlLCAkcHJldGV4dCwgJHNpdGV1cmws
ICRwYXRoX3RvX3NpdGU7CgkJICRzdWJqZWN0ID0gKGVtcHR5KCRhdHRzWydzdWJqZWN0J10p
ID8gJHRoaXNhcnRpY2xlWyd0aXRsZSddIDogJGF0dHNbJ3N1YmplY3QnXSk7CgkJICRpbWFn
ZXBhdGggPSAoZW1wdHkoJGF0dHNbJ2ltYWdlcGF0aCddKSA/ICcnIDogJGF0dHNbJ2ltYWdl
cGF0aCddKTsKCQkgJHRleHRsaW5rID0gKGVtcHR5KCRhdHRzWyd0ZXh0bGluayddKSA/ICdF
bWFpbCBhcnRpY2xlIGxpbmsnIDogJGF0dHNbJ3RleHRsaW5rJ10pOwoJCSAkY2xhc3NuYW1l
ID0gKGVtcHR5KCRhdHRzWydjbGFzc25hbWUnXSkgPyAnJyA6ICRhdHRzWydjbGFzc25hbWUn
XSk7CiAgICAgICAgICRpZG5hbWUgPSAoZW1wdHkoJGF0dHNbJ2lkbmFtZSddKSA/ICcnIDog
JGF0dHNbJ2lkbmFtZSddKTsKCQkgJHRvZW1haWwgPSAoZW1wdHkoJGF0dHNbJ3RvZW1haWwn
XSkgPyAnJyA6ICRhdHRzWyd0b2VtYWlsJ10pOwoJCSAkaW1hZ2V0ZXh0ID0gKGVtcHR5KCRh
dHRzWydpbWFnZXRleHQnXSkgPyAnbm8nIDogJGF0dHNbJ2ltYWdldGV4dCddKTsKICAgICAg
ICAgJG15bWVzc2FnZSA9IChlbXB0eSgkYXR0c1snbXltZXNzYWdlJ10pID8gJycgOiAkYXR0
c1snbXltZXNzYWdlJ10pOwoJCSAkcHJlcGVuZCA9IChlbXB0eSgkYXR0c1sncHJlcGVuZCdd
KSA/ICdubycgOiAkYXR0c1sncHJlcGVuZCddKTsKCgoJCWlmKCRwZXJtbGlua19tb2RlICE9
ICJtZXNzeSIpIHsKCiAgICAgICAgICAgICAgICAgICAgICAgIGlmKCRwcmV0ZXh0WydzJ10g
PT0gJ2RlZmF1bHQnIHx8IGVtcHR5KCRwcmV0ZXh0WydzJ10pKSB7CgogICAgICAgICAgICAg
ICAgICAgICAgICAgICAkdGhpc1VSSSA9ICdodHRwOi8vJy4kc2l0ZXVybC4kX1NFUlZFUlsn
UkVRVUVTVF9VUkknXTsKICAgICAgICAgICAgICAgICAgICAgICAgfSBlbHNlIHsKCgkJICAg
ICAgICAgICAgICR0aGlzVVJJID0gJ2h0dHA6Ly8nLiRzaXRldXJsLiRfU0VSVkVSWydSRVFV
RVNUX1VSSSddOwoKCgkJICAgICAgIH0KCQkgfSBlbHNlIHsKCQkgJHRoaXNVUkkgPSAiaHR0
cDovLyIuJHNpdGV1cmwuJF9TRVJWRVJbJ1BIUF9TRUxGJ10uKCghZW1wdHkoJF9TRVJWRVJb
J1FVRVJZX1NUUklORyddKSkgPyAnPycudXJsZW5jb2RlKCRfU0VSVkVSWydRVUVSWV9TVFJJ
TkcnXSkgOiAnJyk7CgkJIH0KCgkJaWYgKCRteW1lc3NhZ2UgIT0gJycgJiYgJHByZXBlbmQg
PT0gJ25vJykgewoJCSAgJHRoaXNVUkkgPSBodG1sc3BlY2lhbGNoYXJzKCRteW1lc3NhZ2Up
OwoJCX0gZWxzZSB7CgkJCSRwb3N0cGVuZFVSSSA9ICR0aGlzVVJJOwoJCQkkdGhpc1VSSSA9
IGh0bWxzcGVjaWFsY2hhcnMoJG15bWVzc2FnZS4kcG9zdHBlbmRVUkkpOwoJCX0KCgkJIGlm
KCR0b2VtYWlsICE9ICcnKSB7CgkJICAgICR0b2FkZHJlc3MgPSAnPGEgaHJlZj0iJy5lRSgn
bWFpbHRvOicuJHRvZW1haWwpLic/c3ViamVjdD0nLiRzdWJqZWN0LicmYW1wO2JvZHk9Jy4k
dGhpc1VSSS4nIj4nOwoKCQkgfSBlbHNlIHsKCQkgICAgJHRvYWRkcmVzcyA9ICc8YSBocmVm
PSJtYWlsdG86P3N1YmplY3Q9Jy4kc3ViamVjdC4nJmFtcDtib2R5PScuJHRoaXNVUkkuJyI+
JzsKCQkgfQoKCQkgaWYoJGltYWdlcGF0aCA9PSAnJykgewoJCQkgJGxpbmt0eXBlID0gJHRv
YWRkcmVzcy4kdGV4dGxpbmsuJzwvYT4nOwoJCSB9IGVsc2UgewoJCQkgJGltYWdlYXR0cyA9
IGdldGltYWdlc2l6ZSgkcGF0aF90b19zaXRlLiRpbWFnZXBhdGgpOwoJCQkgICRpbWFnZWxp
bmsgPSAnPGltZyBzcmM9IicuJGltYWdlcGF0aC4nIiB3aWR0aD0iJy4kaW1hZ2VhdHRzWzBd
LiciIGhlaWdodD0iJy4kaW1hZ2VhdHRzWzFdLiciIGFsdD0iJy4kdGV4dGxpbmsuJyIgLz4n
OwoKCQkJICBpZigkaW1hZ2V0ZXh0ICE9ICdubycpIHsKCQkJCSAkbGlua3R5cGUgPSAkdG9h
ZGRyZXNzLiRpbWFnZWxpbmsuJzwvYT4nLiR0b2FkZHJlc3MuJyAnLiR0ZXh0bGluay4nPC9h
Pic7CgkJCSB9IGVsc2UgewoJCQkJICRsaW5rdHlwZSA9ICR0b2FkZHJlc3MuJGltYWdlbGlu
ay4nPC9hPic7CgkJCSB9CgkJfQoKCQlpZigkY2xhc3NuYW1lID09ICcnKSB7CgkJCXJldHVy
biAkbGlua3R5cGU7CgkJfSBlbHNlIHsKCQkJJGNsYXNzbGluayA9ICc8ZGl2IGNsYXNzPSIn
LiRjbGFzc25hbWUuJyI+Jy4kbGlua3R5cGUuJzwvZGl2Pic7CgkJCXJldHVybiAkY2xhc3Ns
aW5rOwoJCX0KCiAgICAgICAgICAgICAgICBpZigkaWRuYW1lID09ICcnKSB7CgkJCXJldHVy
biAkbGlua3R5cGU7CgkJfSBlbHNlIHsKCQkJJGlkbGluayA9ICc8ZGl2IGlkPSInLiRpZG5h
bWUuJyI+Jy4kbGlua3R5cGUuJzwvZGl2Pic7CgkJCXJldHVybiAkaWRsaW5rOwoJCX0KCgl9
CgoiO3M6ODoiaGVscF9yYXciO3M6MTgwNzoiaDEuIG1yaF9lbWFpbF9hcnRpY2xlX2xpbmsK
Cio8Y29kZT48dHhwOm1yaF9lbWFpbF9hcnRpY2xlX2xpbmsgLz48L2NvZGU+KiBnZW5lcmF0
ZXMgYSBzaW1wbGUgIm1haWx0bzoiIGxpbmsgdXNpbmcgZWl0aGVyIGEgYnV0dG9uIGltYWdl
IGFuZC9vciB0ZXh0IGxpbmsgdGhhdCBwcm92aWRlcyB0aGUgVVJMIGZvciB0aGUgY3VycmVu
dCBhcnRpY2xlICh0aHVzIHRoaXMgc2hvdWxkIGJlIHVzZWQgaW5zaWRlIGEgc2luZ2xlIGFy
dGljbGUgZm9ybSkgYW5kIHRoZSB0aXRsZSBpbiB0aGUgc3ViamVjdCBsaW5lLiBJbiB2LiA+
MC40LCB5b3UgY2FuIGFsc28gc2V0IHlvdXIgb3duIG1lc3NhZ2Ugd2l0aCB0aGUgX215bWVz
c2FnZV8gcGFyYW1ldGVyIG9yIHByZXBlbmQgdGhlIF9teW1lc3NhZ2VfIGJlZm9yZSB0aGUg
VVJMIHdpdGggdGhlIF9wcmVwZW5kXyBwYXJhbWV0ZXIuCgoqUGFyYW1ldGVyczoqCgoqc3Vi
amVjdDoqIHRoZSBUWFAgZ2xvYmFsIHZhcmlhYmxlICR0aGlzYXJ0aWNsZVsndGl0bGUnXSBp
cyB0aGUgZGVmYXVsdCwgYnV0IHlvdSBjYW4gc2V0IHRoaXMgbWFudWFsbHkuCgoqdGV4dGxp
bms6KiB0aGUgc3RyaW5nICJFbWFpbCBhcnRpY2xlIGxpbmsiIGlzIHRoZSBkZWZhdWx0LCBi
dXQgeW91IGNhbiBzZXQgeW91ciBvd24gd2l0aCB0aGlzIHBhcmFtZXRlci4gTm90ZTogdGhp
cyBpcyByZXF1aXJlZCwgYmVjYXVzZSBpdCBpcyB1c2VkIGZvciB0aGUgImFsdCIgcGFyYW1l
dGVyIGV2ZW4gaWYgeW91IGFyZSB1c2luZyBhbiBpbWFnZSBsaW5rLgoKKmltYWdlcGF0aDoq
IGRlZmF1bHQgaXMgZW1wdHksIGJ1dCBpZiB5b3UgaGF2ZSBhbiBpbWFnZSB5b3Ugd291bGQg
bGlrZSB0byB1c2UgYXMgYSBidXR0b24sIHlvdSBjYW4gc2V0IGl0IGhlcmUgbGlrZSBpbWFn
ZXBhdGg9Ii4vaW1hZ2VzL215X2J1dHRvbi5naWYiIGFuZCBpdCB3aWxsIG92ZXJyaWRlIHRo
ZSB0ZXh0bGluay4KCipjbGFzc25hbWU6KiBkZWZhdWx0IGlzIGVtcHR5LCBidXQgdGhpcyBh
bGxvd3MgeW91IHRvIHN0eWxlIHlvdXIgdGV4dGxpbmsgb3IgaW1hZ2UgbGluayB3aXRoIGEg
PGNvZGU+PGRpdj48L2NvZGU+IHdpdGggeW91ciBvd24gY2xhc3MuCgoqdG9lbWFpbDoqIGVt
YWlsIGFkZHJlc3MgaWYgeW91IHdpc2ggdG8gdXNlIHRoaXMgYXMgYSB0byBlbWFpbCBsaW5r
LiBFbWFpbCBhZGRyZXNzIGlzIG9iZnVzY2F0ZWQgKGhpZGRlbiBmcm9tIHNwYW1ib3RzKS4K
CippbWFnZXRleHQ6KiBPcHRpb24gdG8gc2V0IGlmIHlvdSB3YW50IHRoZSB0ZXh0bGluayB0
byBhY2NvbXBhbnkgYSBsaW5rIGltYWdlIGJ1dHRvbi4gRGVmYXVsdCBpcyAnbm8nLiBTZXQg
dG8gJ3llcycgaWYgeW91IHdvdWxkIGxpa2UgdG8gcHJlc2VudCB0aGUgaW1hZ2UgYnV0dG9u
IHdpdGggdGhlIGxpbmsgdGV4dCB0byB0aGUgc2lkZS4KCipteW1lc3NhZ2U6KiBORVchIFNl
dCB5b3VyIG93biBtZXNzYWdlIGluc3RlYWQgb2YgdGhlIGFydGljbGUgVVJMLiAoWClIVE1M
IGNhbiBiZSB1c2VkLiBJZiB1c2VkIHdpdGggdGhlIF9wcmVwZW5kXyBwYXJhbWV0ZXIsIGl0
IHdpbGwgYmUgdXNlZCBhcyB0aGUgcHJlcGVuZGVkIHRleHQgYmVmb3JlIHRoZSBhcnRpY2xl
IFVSTC4KCipwcmVwZW5kOiogU2V0IHRoaXMgdG8gJ3llcycgdG8gcHJlcGVuZCBfbXltZXNz
YWdlXyBwYXJhbWV0ZXIgdG8gdGhlIGFydGljbGUgVVJMLiBFeGFtcGxlOiA8Y29kZT48dHhw
Om1yaF9lbWFpbF9hcnRpY2xlX2xpbmsgbXltZXNzYWdlPSJTb21lb25lIHRob3VnaHQgeW91
IHNob3VsZCByZWFkIHRoaXMgYXJ0aWNsZTogIiBwcmVwZW5kPSJ5ZXMiIC8+PC9jb2RlPiI7
czozOiJtZDUiO3M6MzI6ImY4Mzc4ODMwMDNlYzU5YjNjNzk0YWJhN2E0OTM5MGE2Ijt9
